home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / Timer.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  1.4 KB  |  82 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Timer.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__TIMER__') = 'UNDEFINED' THEN
  18. __TIMER__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26.     IF &TYPE('__OSUTILS__') = 'UNDEFINED' THEN
  27.     include 'OSUtils.a'
  28.     ENDIF
  29. ;        include 'MixedMode.a'                                        ;
  30. ;        include 'Memory.a'                                            ;
  31.  
  32. ; high bit of qType is set if task is active 
  33. kTMTaskActive                    EQU        (1 << 15)
  34.  
  35. TMTask                     RECORD    0
  36. qLink                     ds.l    1
  37. qType                     ds.w    1
  38. tmAddr                     ds.l    1
  39. tmCount                     ds.l    1
  40. tmWakeUp                 ds.l    1
  41. tmReserved                 ds.l    1
  42. sizeof                     EQU    22
  43.                         ENDR
  44.  
  45.     IF GENERATING68K THEN
  46.         _InsTime:    OPWORD    $A058
  47.     ELSE
  48.         IMPORT    InsTime
  49.     ENDIF
  50.  
  51.     IF GENERATING68K THEN
  52.         _InsXTime:    OPWORD    $A458
  53.     ELSE
  54.         IMPORT    InsXTime
  55.     ENDIF
  56.  
  57.     IF GENERATING68K THEN
  58.         _PrimeTime:    OPWORD    $A05A
  59.     ELSE
  60.         IMPORT    PrimeTime
  61.     ENDIF
  62.  
  63.     IF GENERATING68K THEN
  64.         _RmvTime:    OPWORD    $A059
  65.     ELSE
  66.         IMPORT    RmvTime
  67.     ENDIF
  68.  
  69.     IF GENERATING68K THEN
  70.         Macro
  71.         _Microseconds
  72.             dc.w     $A193
  73.             dc.w     $225F
  74.             dc.w     $22C8
  75.             dc.w     $2280
  76.         EndM
  77.     ELSE
  78.         IMPORT    Microseconds
  79.     ENDIF
  80.  
  81.     ENDIF ; __TIMER__
  82.